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0. INTRODUCTION. 


This reference manual includes information to prepare, 
compile and execute programs written in ALGOL 68 for the 
CONTROL DATA CYBER, 170 series, CYBER 70 series models 
72,73,74, and 6000 series. 

The language implemented is described in : 

Revised Report on the Algorithmic Language ALGOL 68, 
Ao van Wijngaarden et al.(Eds), Mathematical Centre 
Tracts 50, Mathematisch Centrum, Amsterdam, 1976. 

References to this document are made by writing the 
mnemonic RR, if necessary followed by a section number, 
e. g. R.1^ .1.1.1. a. 

Syntactical constructions {"hypernotions") are bracketed 
by < and> , e.g. < quote symbol> . In the sequel the 

mnemonic RM is used to refer to Record Manager. 

Chapter 1 presents an overview of the ALGOL 68 system. 
Chapter 2 and 3 include information to prepare programs. 
Chapter 2 deals with deviations from RR; chapter 3 sum¬ 
marizes implementation-dependant aspects of the language 
as they are realized on the CONTROL DATA computer systems. 
Compilation and execution of programs is described in 
chapter 4 and 5, respectively. 

Chapter 6,7 and 8 are useful for those who want to improve 
program efficiency. 

Some sample jobs are given in chapter 9. 
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C 1. ALGOL 68 SYSTEM DESCRIPTION. 


1.1. COMPILER FEATURES. 

- Virtually the full language, defined in RR is implemented, 
including e.g. parallel processing and binary, formatted 
and unformatted transput. 



- Routines may be separately compiled and loaded with a 
particular program only when explicitly used in that 
program. 

- User preludes and postludes may be precompiled to be used 
in subsequent compilation of programs, separate routines 
or again preludes and postludes. In the last case a new 
prelude and postlude is generated combining (in a nested 
fashion) the definitions in both preludes and postludes. 

- Operators may be defined in terms of machine-instructions 
by means of intermediate code file macros (ICF macros). 
Thus defined operators are compiled into in-line code 
rather than calls to routines. ICF macros have been 
used to define almost all operators in the Control Data 
standard prelude. 

- In case of errors in the source text, self-explanatory 
error messages are put out, including line number and 
severity of the error (warning, error, fatal). 

- When during the syntactical scan of the source program 
an error is detected, error-recovery procedures are 
invoked that guarantee a syntactically correct inter¬ 
mediate output of that pass. 
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For a following pass then it is possible to detect more 
errors and to transform the erroneous program in an execut¬ 
able, even meaningful one. Optionally, programs containing 
no compilation errors of severity fatal may be executed. 

A source listing is provided, giving on each line the line 
number, the source text, the level of parenthesis nesting 
and the type of the last object on the line. 

(comment, string, tag, mode-indication, operator, denotation) 

Optionally, an assembly-like listing of the object program is 
provided. 

The allocation of data is designed in such a way that scope 
checking can be restricted to the checking of routines being 
called. 

The internal representation of internal objects has been 
chosen in such a way that values of mode reference-to-MODE 
or row-of-MODE use recognizable bit-patterns and thus no 
templates are needed, allowing a fast and simple garbage 
collection. 

Some enquiries have been added to the standard set, mainly 
for memory allocation statistics. 

In case of runtime errors, a self-explanatory diagnostic 
message, including the line number and module name, is 
printed. 

An error trace back of active routines at the time of inter¬ 
ruption will be given. 

Optionally, a post-mortem symbolic dump will display all 
identifiers in all ranges active at the time of the inter¬ 
ruption. 
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COMPILER STRUCTURE. 


The compiler consists of a main overlay or CRADLE and 
six overlays (PASS 1 through PASS 6), each of which per¬ 
forms a complete pass over the programi Communication 
between the overlays is accomplished by means of : 

- intermediate files ILl, IL2, IL3, IL4 (ICF) and IL5 
(CF), each representing some intermediate form of 
the program ; 

- the SYMBOL-TABLE, a comglomerate of all internal tables, 
such as Name-table, Identifier-table, etc. ; 

- common blocks in the CRADLE. 

CRADLE: 


Controls loading of overlays, contains service routines 
and common blocks. 

I/O routines are included in the overlays rather than in 
the CRADLE, because different passes require different 
I/O (RM) routines. 

PASS 1 : 

Lexical scan. 

Performs control-card interpretation and SYMBOL-TABLE 
initialization. 

A SYMBOL-TABLE overlay representing the prelude selected 
on the control-card is loaded. 
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Pa^s 1 reads the source text of the user program and 
produces ILl. Pass 1 creates SYMBOL-TABLE entries for 
all identifiers, fields, mode-indications, operators 
and most denotations, replacing these in the ILl by 
SYMBOL-TABLE pointers. It translates the hardware 
representation into internal values. It determines all 
defining occurences of mode-indications and operators 
and performs preliminary parenthesis analysis. 

Pass 1 also produces the source listing. 

PASS 2 : 

Mode independent parse. 

Pass 2 reads ILl and produces IL2. The parser has been 
generated by program from a context-free grammar. 

IL2 represents the program in reversed Polish notation. 
Appropriate entries for all modes are created in the 
SYMBOL-TABLE. 

PASS 3 : 

Mode-table cleanup, coercion and balancing. These 
functions are combined in one overlay, although they 
are logically independent. 

1. Mode-table cleanup. 

This module does not scan the program but operates 
on the SYMBOL-TABLE only. It performs mode equiva- 
lencing and the ordering of the constituent modes 
of the union. 



2. Coercion and balancing. 

Reads IL2 and produces IL3. 

IL2 is read backwards and IL3 represents the program 
in Polish notation. 

This module performs : 

- Identifier identification 

- Operator identification 

- Determination of all coercions and balancing of modes 

- The coercions are inserted in the IL3 produced. 

PASS 4 : 

Code-generator 1. 

Pass 4 reads IL3 backwards (i.e. in the order of the 
source code) and produces IL4. IL4 is a modification 
of ICF, the input to the code-generator 2 phase of 
^ the SYMPL compiler. 

IL4 is similar to machine code, but it contains no 
register indications. 

The operands of instructions generated may be SYMBOL- 
TABLE pointers or pointers to preceding ICF instruc¬ 
tions . 

PASS 5 : 

Code-generator 2. 

Reads IL4 and produces IL5 (or CF). 

Pass 5 is a slightly modified version of code-gener¬ 
ator 2 of the SYMPL compiler. 

It inserts load instructions if necessary and performs 
register assignment and instruction scheduling. 

r 
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PASS 6 : 


Editor. 

Produces error messages from the error-entries in 
the SYMBOL-TABLE/ created in earlier passes. 

Reads IL5 (or CF) and produces standard SCOPE relo¬ 
catable binary. 

Optionally, it provides an edited object-code listing 


1.3. RUNTIME LIBRARY. 


The runtime library is an integral part of the ALGOL 68 
compiler system. This library contains a large number 
of routines, needed to support different features of 
the language. 

1. Storage allocation. 

Garbage collector 
Core request routine 

2. Language constructs. 

Parallel processing 
Generators involving multiples 
Assignations involving multiples 
Slicing 

Selections involving multiples 
Subscripting 

Row displays involving miltiples 
Coercions yielding multiples 

3. Standard prelude. 

Standard environment enquiries 

Control Data additional environment enquiries 
Transput (coded in ALGOL 68) 

Basic I/O to support transput 

4. Diagnostic system. 

Error trace back 
Post-mortem symbolic dump. 
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1.4. OPERATING SYSTEM INTERFACE, 

The compiler operates as a user program to the 
operating system (SCOPE 3.4 or KRONOS 2.1). 

It uses RM for compiler I/O exclusively. 

Input and Output have FO = SQ, RT = Z. 

Intermediate files have FO = WA, RT = F or RT = W. 
The LGO-file has FO = SQ, RT = U. 

System requests are used to load overlays, 
obtain the clock reading, etc. 
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HARDWARE CONFIGURATION. 

The basic hardware configuration required for com¬ 
pilation consists of the minimum configuration required 
by the operating system. 






DEVIATIONS FROM THE REVISED REPORT ON ALGOL 68. 


O 
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2.1. SYNTACTICAL / SEMANTICAL DEVIATIONS. 

1. No transient names. 

A name referring to an element of a flexible row V is 
treated as a name referring to an element of a fixed 
multiple and does not change or lose its meaning when 
an assignment is made to the name referring to V. Hence 
the concept of transient name is abolished. 

E.g. after 

FLEX [is 4] INT fris= (1,2,3,4); 

REF INT i = fri [ 2 ] ; 

REF REF INT ii = fri [ 2 ] ; 

REF [ ] INT il = fri ^2:4] ; 
fri;= (7,8); 

the following clauses always yield TRUE 
i = 2; 

REF INT (ii) IS i; 
il [ij IS i 

2. No ghost element. 

A multiple being an element of a flexible multiple is 
flexible. Thus the following declarations are equivalent 

FLEX [1:3] FLEX [4;5] INT ffi; 

and 

FLEX [ls3] [4:5] INT ffi; 
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and the following is legal 


ffi [ 2 ] = (7,8,9) 

This obviates the need for a ghost element. 

Scope of generators. 

The scope of all generators, including those implied 
in variable declarations, is global. 

Scope checking. 

The scope of a value of mode PROCEDURE is not checked 
upon assignation or when yielded by a range or routine, 
but at the time the routine is called. 


No VOID in united modes. 

VOID is not allowed as constituent of a united mode; 
EMPTY can not be used as a void-denotation. 


Bold symbols. 

The CONTROL DATA implementation accepts "bold letter 
ABC symbols" and "bold DIGIT symbols" in operators and 
mode indications (see Table 1 and also section 3.1.3) . 
These symbols are produced by the following additional 
rules: 


< TAB> 

< TAD > 

< TAM > 

< BOL> 


<BOL> . 

< BOL > . 

< BOL > . 

<Cbold letter ABC ; 
<BOL, bold letter ABC> ; 
<BOL, bold DIGIT> . 





2.2 DEVIATIONS IN HARDWARE- REPHESENTATION. 

A c^style i sub symbol^, has the following representa¬ 
tion- (expressed in ASCII-graphics, see Table l)s 

(,/ ■, 

; a <;^style i bus symbol> has the following representa¬ 
tions 

■ /) • .. . ■■ 
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2.3. DEVIATIONS IN STANDARD ENVIRONMENT. 


In this section ALGOL 68 features are surnmarized 
which are not supported by the CONTROL DATA imple¬ 
mentation . 

For extra (non-ALGOL 68) features, one is referred 
to chapter 3, section 4 and 5. 

2.3.1. CONTROL DATA PRELUDES AND POSTLUDES. 

This implementation does not follow the concept of 
particular-prelude and particular-postlude (see 
RR.10.1). 

Instead, this implementation assumes the existence 
of a "standard—postlude" and a "library—postlude" 
in analogy to the concept of standard-prelude and 
library-prelude, respectively. 

The CONTROL DATA standard prelude will be available 
in three versions; 

1. single precision version; all standard operators 
on operands having a size long-LONGSETY are 
omitted; 

2. semantic long version; all standard operators on 
operands having mode REAL and COMPL with size 
long are included; 

3. syntactic long version; the intention of this 
standard-prelude is to allow the use of algorithms 
containing modes with size long-LONGSETY in a 
single precision mode (this version is not imple¬ 
mented yet) . 
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2.3.2. 


TRANSPUT DECLARATIONS. 




Format pattern: 

Format patterns (RR.10.3.4.9) are not supported 
by this implementation. 

Staticizing of formats: 

The entire format is "staticized" at the moment 
of attachment to the file. 

Logical end while writing: 

For "sequential access books" a write action sets 
"logical end of book" on the character with highest 
position in the line to be written. 

Associate: 

The routine "associate" is not supported by this 
implementation. 

Conversion key: 

The programmer can not provide his own conversion 
key; calling of the routine "make conv" (see 
RR.10.3.1.3.j) results in program termination. 
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3. CONTROL DATA ALGOL 68 LANGUAGE 


3.0. INTRODUCTION. . - 

This chapter deals with: 

specification of what is not defined or partly defined 
in RR; what is left to the discretion of the imple¬ 
mentor or can not be specified by RR alone, e.g. 
"undefined"; 



specific properties of the CONTROL DATA implementa¬ 
tion, e.g. "environment enquiries"; 

extra (non-ALGOL.68, nonstandard) features. 
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3.1. HARDWARE REPRESENTATION. 




3.1.1. INTERNAL REPRESENTATION OF SYMBOLS. 


Internally the compiler uses a 12-bit code, called 
ILO-code, that meets the following requirements: 

ILO-code is a superset of ASCII; 

there is a one-to-one-mapping of all single-position 
(non-composite) representations of symbols mentioned 
in RR.9.4.1. into the class of 8-bit ILO-code items; 

all 8-bit ILO-code items outside this mapping have 
a map in a "typographical display feature" or in a 
<style TALLY monad symbol> or in a <bold LETTER 
symbol> or in a < bold style i LETTER symbol > 
or in a <^bold DIGIT symbol> or in a style 

i LETTER symbol > ; 

the rest of the ILO-code items are mapped into 
other string item> . 

A table giving for each ILO-code item the corresponding 
ALGOL 68 item, is presented in Table 1. 
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3.1.2. EXTERNAL REPRESENTATION OF SYMBOLS. 

In table 1 relationships between the SCOPE 3.4/KRONOS 2.1 
standard 63-character set, an ASCII subset and a subset 
of ALGOL 68 symbols are given. 


3.1.2.1. ALGOL 68 SINGLE-POSITION REPRESENTATIONS. 


The ASCII subset corresponding with the SCOPE 3.4/KRONOS 2.1 
standard character set (see column 4 of Table 1) does 
hot contain all single-position representations for 
symbols listed in RR.9.4.1. 

Items Occurring in both ASCII and ALGOL 68 representa¬ 
tions are c^style TALLY monad symbols^ 

3.1.2.2. ALGOL 68 MULTIPLE-POSITION REPRESENTATIONS. 


Symbols from ALGOL 68 having a representation which is 
a sequence of capital letters (e.g. mode standards, bold 
symbols, see RR.9.4.1) are represented by: 

<bold glyph> letter sequence> 

in flagged mode, or 

<Cbold glyph> <^letter sequencej> <Cbold glyph^ 

in stropped mode, where <bold glyph> is an ILQ-item 
having code 27 (see Table 1, column 3), and letter 
sequence> is the ASCII-code equivalent of the sequence 
of capital letters (see sections 4.1.2 and 4.3, also). 

All other multiple-position representations are represented 
by their equivalent ASCII sequences. 
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. 3. GENERAL IMAGES. 


Throughout a program one can represent ALGOL 68 symbols, 
given in Table 1 column 5, by their corresponding 
"general images". A general image corresponding to an 
ALGOL 68 symbol S, has in stropped mode the following 
format: 

<!^bold glyph> ^open symbQl> <N> ^close symbol > 

<.bold glyph> 

where <.bold glyph> is as specified before, <ppen symbol> 
and <close symbol> are ALGOL 68 symbols, and <N> is 
the decimal representation of the IL0“Code item corres¬ 
ponding to S, see Table 1 column 3. 

In stropped mode general images of a string of ALGOL 68 
symbols Sl...Sk may be represented by: 

<bold glyph> <open symbcl»l> <Nl,...,Nk> <close symbol> 
<bold glyph> 

where Nl,...Nk are the decimal representations of the 
ILO-code items corresponding to Sl,...,Sk , respectively. 

In flagged mode the representations are the same as the 
representations in stropped mode without the last 
<C bold glyph ^ . in flagged mode one can not represent 
a general image close behind a flagged sequence of 
letters, e.g., expressed in ASCII-graphics: 

in stropped mode'A(65)P' is equivalent to 'AAP' 
and '(65,66,67)' is equivalent to 'ABC' ; 

'BIN(126) in flagged mode is equivalent to 'BIN' 

(126) in stropped mode; 



'BIN(126) in flagged mode is equivalent to 'BIN' 
'SKIP' in stropped mode. 
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3.1.3. EXTERNAL REPRESENTATION OF MODE INDICATIONS AND 
OPERATORS. 


Mode indications and operators are represented by: 

<^bold glyph^ <^TAG> 

in flagged mode, or by 

<C. bold glyph > <CtaG^ <Cbold glyph > 

in stropped mode (see sections 4.1.2 and 4.3, also), 
where Cuboid glyph^ is as specified before. 

Another way to represent mode indications and operators 
is to use the (non-ALGOL 68, CONTROL DATA) bold symbols 
according to the rules in section 2.1. 
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3.2. PRAGMATS. 



Pragmats are available now for: 


Manipulation of source program input and output 
(see sections 4.1 and 4.2): 

list-pragmat and nolist-pragmat; 
eject-pragmat; 

flagged-pragmat and stropped-pragmat; 
state-pragmat and nostate-pragmat; 
stop-pragmat. 

— Addition of (inline IGF) code to CONTROL DATA 

prelude, postlude and standard library (see section 
4.1), and interfacing with other programming lang¬ 
uages (see section 8) : 

xdef-pragmat and fedx-pragmat; 
xref-pragmat; 
prog-pragma t; 
inline-pragmat. 
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3.3. UNDEFINED. 


This section specifies what actions are taken in 
"undefined" situations. For situations which lead to 
an error message, one is referred to section 5.2. 

1. If the union or the integer in a conformity-clause 
or case-clause has the value SKIP or is not initia¬ 
lized, the out-CASE-clause is elaborated. 

2. All values are initialized to SKIP. 

3. Assignation to SKIP or NIL and dereferencing of NIL 
or SKIP will cause the program to be terminated and 
an error message to be put out. 

4. Array bound violations in subscripting, slicing, ^ 

assignation of multiple values or rowing of multi¬ 
ple values to multiple values of higher dimension 

will cause the program to be terminated and an 
error message to be put out. 

5. The use of infinite or indefinite real values causes 
the program to be terminated and an error message 

to be put out. 

6. An attempt to backspace a file with c OF epos equal 
to 1 will not change epos. 

7. All undefined transput situations, except the one 
mentioned above, lead to an error message. 
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3.4. CONTROL DATA STANDARD PRELUDE. 


3.4.1. STANDARD ENVIRONMENT ENQUIRIES. 

The CONTROL DATA standard prelude contains the following 
standard enquiries (see RR.10.2.1): 


INT 

INT 

INT 

INT 

INT 

INT 

INT 

REAL 

REAL 

INT 

INT 

INT 

INT 

INT 

INT 

INT 

INT 

CHAR 

CHAR 

CHAR 

CHAR 

CHAR 


int lengths 
int shorths 
int width 
max int 
real lengths 
real shorths 
real width 
max real 
small real 
exp width 
bits lengths 
bits shorts 
bits width 
bytes lengths 
bytes shorths 
bytes width 
max abs char 
null character 
flip 
flop 

errorchar 

blank 


= If 
= If 
= 15, 

= 2xx48-l, 

= If 
= If 
= 16, 

= 2xxl022x{2xx48-l) , 
= 2xx(-47) , 

= 3, 

= If 
= If 
= 48, 

= If 
= If 

= 4, 

= 4095, 

= REPR 0, 

= ?^T?4, 

= 

~ f 

= 


Note; 


the above given denotations are represented 
by CDC-graphics, see Table 1. 
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3.4.2. CONTROL DATA ADDITIONAL ENVIRONMENT ENQUIRIES. 

In the CONTROL DATA standard prelude the mode 
"LONGBYTES" is declared as : 

MODE LONGBYTES = STRUCT(BYTES bl, b2). 

In addition to those specified in section 3.4.1, the 
CONTROL DATA standard prelude includes the following 
environment enquiries: 


INT 

progsize 

maxprog 

compiler level 


PROC INT 

stacksize 

allocated stack 

max allocated stack 

heapsize 
available 
time limit 


= C size of the program in 
words C, 

= C the maximum storage in 
words available to this 
job C, 

= xxxyyzzz 

CO XXX is the compiler level, 
yy is the year of creation, 
zzz is the day of creation. 

CO, 

= C size of the currently active 
stack in words C, 

= C size of the currently allocat¬ 
ed stack in words C, 

= C maximum of allocated stack in 
this program execution C, 

= C size of the heap in words C, 

= C number of free words C, 

= C CP time in seconds allowed 
for this job C, 
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PROC REAL 
clock 

PROC LONGBYTES 
wall clock 


date 


INT 

collections 

garbage 


REAL 

collect seconds 


= C CP time in seconds used in 
this job C, 

= C time in the format hh.rom.ss, 
hh is hours, 
mm is minutes, 
ss is seconds C, 

= C date in the format dd.mm.yy, 
dd is the day, 
mm is the month, 
yy is the year C, 

;=0 CO one is added for each gar¬ 
bage collector execution 

CO, 

;=0 CO the garbage collector adds 
the number of words of gar¬ 
bage faced every time it is 
executed 

CO, 

:=0 CO garbage collector adds the 
CP time spend for every 
execution 

CO. 
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3.4.3. CONTROL DATA ADDITIONAL OPERATORS AND ROUTINES. 

One operator is added to the standard environment; 

OP MODIV = (REF INT i, INT k)INT: 

(INT r= i+k; INT s= i-kxr; i:= r; s). 

A different version of MODIV is x/;= . 

Three routines are added to the standard environment: 

PROC(INT)INT memory= 

C if the parameter value is larger than the 
current field length, then increase the 
field length to the parameter value with¬ 
out, however, exceeding the maximum field 
length C, 

PROC VOID collect gargabe = 

C invoke the garbage collector C, 

PROC VOID error = 

C causes normal termination; triggers 
trace-back and symbolic dump C. 
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3.5. TRANSPUT DECLARATIONS. 

Transput is performed via Record Manager. 

3.5.1. CHANNELS. 

The channels included in the CONTROL DATA standard 
environment are given in the following table. 
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3.5.2. MAPPING OF TRANSPUT CONCEPTS INTO RM CONCEPTS. 

The following table shows the mapping of ALGOL 68 Transput 
concepts into RM concepts. 


ALGOL 68 entity RM entity 


book. 

logical end 
of a book. 

idf 

of a book, 
line. 



page end. 


open. 

establish. 



lock. 

scratch. 


sequential (SQ) file, except for a book of 
standback channel, which is mapped on word 
addressable (WA) file. 

End-of-Information (EOI). 

logical file name. 

RM record having record type (RT): 

Z for standin channel, standout channel, 
ztype channel and ascii channel; 

W for binary sequential channel, char 

compress channel and char noncompress 
channel; 

F for standback channel. 

End-of-Section (EOS), only for channels 
having lines mapped on RM records with 
RT = W. 

RM open, the book must be in chainbfile. 

RM open, the book should not be in 
chainbfile, but may exist in the job. 

RM close. 

RM close and unload. 
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Note, that beeause "idf of book" is identical to the 
"logical file name" of the operating system, one is 
subject to the restrictions for logical file names. 
The ALGOL 68 system does not support the use of the 
FILE control card. 



3.5.3. THE H-PATTERN. 


The H-pattern (not defined in RR) may occur at positions 
where a <literal> is legal, see RR.10.3.4.1.i. 

An H-pattern is defined as 

<1 letter h symbol, enclosed clause>• , 

where the enclosed clause yields a <C[ strong row of 
character NEST coercee . 

The H-pattern is A means to specify dynamically a 
row-of-character in a format in positions where a 
literal is allowed. 
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3.5.4. BINARY TRANSPUT. 

The routines putbin (RR.10.3.6.1.a) and getbin 
(RR.10.3.6.2.a) will accept parameters of the mode 
procedure-with-reference-to-file-parameter-yielding- 
void. 
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4. COMPILATION 


Compilation can be directed by control card options and 
pragmats. 

Several pragmats are available to control compiler input 
and output and source text interpretation. They will be 
described in the appropriate sections of this chapter. 

4.1. PRAGMATS FOR INPUT TO COMPILATION. 

4.1.1. END OF SOURCE TEXT. 



The end of the text of a particular-program to be com¬ 
piled or a routine to be seperately compiled is marked 
by the pragmat PR stop PR. 

However, the end of the last particular-program or 
routine in a sequence of compilations should be marked 
with an End-of-Record (EOR). 

This pragmat is useful when the text to be compiled is 
interactively given to the compiler via a connected 
input file. 


4.1.2. STROPPED MODE AND FLAGGED MODE. 


Stropped mode and flagged mode can be controlled by the 
use of pragmats (see section 4.3, also). 

The pragmat PR flagged PR causes switching to flagged mode^ 
The pragmat PR stropped PR causes switching to stropped 
mode. 


4.1.3. SEPARATE COMPILATION. 


A routine text may be separately compiled by enclosing 
its unit in the pragmats PR naming xdef PR and PR fedx PR, 
where "naming" is the entry-point name that will be 
generated for the routine. 
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The text to be separately compiled consists of one or 
more identity-declarations or operation-declarations with 
a routine-text on the right-hand side, the unit of which 
is surrounded by the above pragmats. 

The last declaration is followed by SKIP. 

An operator or identifier having a mode PROCEDURE may 
be defined as external by a declaration of the form: 

OP operator = formal part : 

PR xref naming PR SKIP 


or 


PROC identifier = formal part : 

PR xref naming PR SKIP, 

respectively. Here "formal part" consists of formal- 
parameters, if any, followed by formal-declarer, while 
"naming" is the entry point for the routine (see section 
9, sample 1). 

If the routine is entered via an interface routine, the 
format of the xref-pragmat is different (see section 8, 
no.2) . 

There are some restrictions for the name naming: 

- a semicolon in naming will be skipped; 

- a colon in naming will cause an error message, 
but the colon will appear in the entry name 
(such an entry name is illegal for the loader); 

- all other symbols in naming are accepted, except 
those with ILO-code less or equal 31 (decimal) 
and greater or equal 96 (decimal) (see Table 1); 
these symbols are replaced by a period-symbol. 



4.1.4. LIBRARY ADDITION. 


The pragmat PR prog PR is used to add code to the library- 
prelude and the (non-ALGOL 68) library-postlude (see 
section 2.1, point 7). 

The source text of the code to be added is given to the 
compiler, operating in "library addition mode” (see 
section 4.1, N-option), in the following format; 


naming : 

STYLE begin symbol^ 
prelude addition ; 

PR prog PR 
postlude addition 

STYLE end symbol ]> 


The compiler generates an overlay module in binary form, 
containing the CONTROL DATA prelude and postlude including 
the additional code. 

A thus created overlay module, when placed in a library, 
can be used in subsequent compilations by referring to 
it with the name "naming" (see section 4.1, P-option). 

The items "prelude addition" and "postlude addition" 
stand for serial-clauses to be added to the library- 
prelude and library-postlude, respectively. 

Here are two examples; 


example 1; plot: 

( PROC plot = C...C ; 
PR prog PR 
SKIP ) 


r 
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example 2; file : 

BEGIN FILE nonstand; open(nonstand,...) ; 

PR prog PR 

stop: close(nonstand) 

END 

Example 2 redefines a.o. the label stop. Another example 
is given in section 9, sample 1. 

4.1.5. INLINE OPERATORS. 

Operators expressed in IGF macros can be compiled inline. 
Therefore the inline-pragmat must be used in the following 
way: 

OP formal part 
PR inline 
icf-macros 
PR SKIP 

Here "formal part" stands for formal-parameters followed 
by formal-declarer, "operator" stands for a TAO-symbol, 
"icf-macros" is a sequence of IGF macros, while the other 
items stand for themselves. 

For examples, see section 9, sample 1. 

The use of IGF macros is described in the IMS (Internal 
Maintenance Specification) of this compiler. 




operator = 
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PRAGMATS FOR OUTPUT FROM COMPILATION. 


The following pragmats may be used to control the output 
of the source listing: 

PR list PR, which turns on output of source listing; 
PR nolist PR, which turns off output of source 
listing; 

PR eject PR, which causes the line which contains 
this pragmat to be put out on the first line of the 
next page. 

PR state PR, which turns on output of parenthesis 
level and construct type on the source listing; 

PR nostate PR, which turns off output of parenthesis 
level and construct type on the source listing; 

The S-option does not prevail over these two prag¬ 
mats (see section 4.3). 

The control card option L=0 prevails over the above 
pragmats (see section 4.3). 



4.3. CONTROL CARD FOR COMPILATION. 


The following control card formats can be used to 
invoke the ALGOL 68 compiler: 


A6 8(pl/p2/... I pk) or A6 8/plfp2f... / pk. j 

none of the parameters pi through pk is mandatory. 
A parameter is either of the format 


XY=sequence 


or 


XY 


The various parameters are specified below. 


I: source input: 
omitted 
I 

I=lfn 


: source input from file INPUT; 

: source input from file COMPILE; 
: source input from file "Ifn". 


C: the number of significant characters on source input 
line: 

omitted : 72 significant characters on source 

input line; 

C : 72 significant characters; 

C=n : "n" significant characters ( n must 

be less or equal 130). 


F; stropped mode and flagged mode (see section 3.1,also): 
omitted : the compiler operates in stropped 

mode, i.e. a "bold word" is repre¬ 
sented by its characters, surrounded 
by <C bold glyphs> ; 

F : the compiler operates in flagged mode, 

i.e. a bold word is represented by its 
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characters, preceded by a 
<C bold glyph > . Note, that a 
bold word must be followed by a 
character that can not occur in 
a bold word. 


B: (relocatable) 
omitted 
B 

B=lfn 

B=0 


binary output: 

: binary output on file LGO; 

; binary output on file LGO; 

: binary output on file "Ifn”; 
; binary output is suppressed. 


L: source listing: 

omitted : source listing and diagnostics on 

file OUTPUT; 

L : source listing and diagnostics on 

file OUTPUT; 

L=lfn : source listing and diagnostics on 

file "Ifn"; 

L=0 : diagnostics on file OUTPUT, source 

listing and object listing are 
suppressed. 

S: suppression of parenthesis level and construct type: 

omitted : no suppression of parenthesis level 

and construct type; 

S : parenthesis level and construct type 

are suppressed. 


0 : 


object code 

omitted 

O 

0=lfn 

0=0 


listing in COMPASS-like form: 

: no object code listing is produced; 
: object code listing on file OUTPUT; 
: object code listing on file "Ifn"; 

: no object code listing is produced. 


4.7 




X: combined use of L-,S- and 0-option (X stands 
for a combination of L,S and 0): 

: source listing and diagnostics 
on file OUTPUT; no suppression 
of parenthesis level and con¬ 
struct type; 

: diagnostics on file OUTPUT; 
if X contains L, then source 
listing on file OUTPUT; 
if X contains S, then parenthesis 
level and construct type are 
suppressed; 

if X contains 0, then object code 
listing on file OUTPUT; 

; the same as X, but instead of file 
OUTPUT the file "Ifn" is taken; 

; diagnostics on file OUTPUT; source 
listing and object code listing 
are suppressed. 

A; inline subscription: 

omitted : subscripting is done by a bound¬ 

checking runtime routine; 

A : subscripting is done by inline- 

code; no bound-checking is pre¬ 
formed. 

P: overlay module containing prelude and postlude is 
taken from the runtime library: 
omitted : default module is taken from 

library A68LIB; 

P : default module is taken from 

library A68LIB; 

P=naming : module having name "naming" is 

taken from library A68LIB; 
P=lib/naming : module having name "naming" is 

taken from library named "lib"; 


omitted 

X 


X=lfn 

X=0 



p=0 


: no prelude is used; the definitions 
of PLAIN modes are internally gen¬ 
erated. 

N: library addition mode (see section 4.1.4): 

omitted : the compiler operates in normal 

mode; 

N : the compiler operates in library 

addition mode. 

D; a symbolic dump is produced at a runtime error: 
omitted : no symbolic dump is produced; 

D : a symbolic dump is produced. 

T: object code is produced if there are no errors of 
severity fatal (see section 4.4): 

omitted : if there are errors of severity E 

or F, no object code is produced; 

T : if there are errors of severity F, 

no object code is produced. 

Z: scheduling of instructions to reduce runtime: 
omitted : no scheduling of instructions; 

: the compiler does scheduling of 
instructions. 
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4.4. COMPILE-TIME DIAGNOSTICS. 

Errors are detected in the following phases of the 
compiler; lexical scan, syntactical scan, mode 
equivalencing and mode checking. 

The output of diagnostics is presented per phase, 
ordered by line-number within that phase; it is 
written behind the source listing. 

There are three categories of severity for errors; 

W ; warning, object code is produced, if required 
(see section 4.3, B-option); 

E ; error, object code is produced optionally (see 
section 4.3, T-option); 

F ; fatal, no object code is produced. 

Abortion of compilation can only be triggered in a 
phase after the syntactical scan. 
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4.5, OPERATION CHARACTERISTICS. 


For a program consisting of ten lines of code, the 
compiler needs 52K when no "long modes" are specified. 
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5. EXECUTION. 


5.1. CONTROL CARD FOR EXECUTION. 

The control card for execution (program control card) 

has the following three options: 

— R: recovery from abnormal job termination (see 
SCOPE Reference manual, RECOVR function): 
omitted : recovery from abnormal conditions 

specified by 77 (octal); 

R : recovery from abnormal conditions 

specified by 77 (octal); 

R= DD : recovery from abnormal conditions 

specified by "DD" (octal); 

M: specification of maximum field length: 

omitted : maximum field length is 131071 

(decimal); 

M : maximum field length to be used is 

the current field length; 

M= DDDDDD : maximum field length is "DDDDDD" 
(octal). 

— I: specification of increment for memory request: 
omitted : increment is 2000 (octal); 

I : increment is 2000 (octal); 

1= DDDDDD : increment is "DDDDDD" (octal). 



The ALGOL 68 system guarantees after each garbage collec¬ 
tion a free space of the number of words specified by the 
I-option. If necessary, memory requests are issued up to 
the maximum, specified by the M-option. 
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5.2. OBJECT-TIME DIAGNOSTICS. 


Upon detection of errors during program execution the 
ALGOL 68 run-time system will perform the following 
actions: 

send an error message to the output file (see also 
section 3.4, L-option), specifying the type of error, 
erroneous data (if applicable), line number and 
relevant identifier; 

give on the output file a trace-back of all active 
routines, optionally interspersed with a symbolic 
dump of all identifiers, except labels, contained 
in these routines; 

terminate execution of the program. 

The following errors are diagnosed: 

— procedures called out of scope; 

invalid arguments of standard functions; 
core overflow; 
time-out; 

undefined situations as described in section 3.3. 
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6. HINTS FOR EFFICIENCY. 


Use identity-declaration for a value, not having 
a mode ROWS-of-MODE, whenever that value is used 
more than once. 

Use contracted declarations to declare several 
names having the same mode. 

E .g. : 

REAL x,y; 
rather than 

REAL X, REAL y; 

and 

[l;5] INT x,y; 
rather than 

[l:5] INT X, [l:5] INT y; 

Write the actual declarer in the declaration 
rather than defining and using a mode indication. 

E .g. : 

[l;7] INT jl; 
rather than 

MODE A = [1:7 ] INT; A j1;. 

In defining the fields of a structured value, do 
begin with the fields having plain modes and place 
the fields having modes REF-to-MODE at the end. 

This will save some time during garbage collection. 

Avoid accessing of identifiers defined in a routine, 
that is not the current routine, because indirect 
addressing is needed for such identifiers. 

Use collateral elaboration. 
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In formula's, try to place function calls before 
identifiers in order to avoid storing of intermediate 
results. 

Avoid rowing. 

E.g. after []l!l] INT i; use 
i [l] != 7, 
rather than 

i : = 7 ; . 

Avoid slicing, if the resulting slice does not occupy 
consecutive storage locations. 

The "holes" are not recovered by the garbage collector 
and assignation is faster for compact multiples. 

Avoid staticizing the same format more than once. 

Use the sequence 

printf(format); 

DO printf(data) OD; 
rather than 

DO printf((format, data)) OD; . 



7. RUNTIME ORGANIZATION. 


7.1. STORAGE ALLOCATION. 

The storage allocated to a value always consists of a 
"static direct part"; depending on the mode of the value, 
a "static indirect part" or a "dynamic part" may be a 
constituent. 

For a value having a mode PLAIN, PROCEDURE or UNITED 
there is only a static direct part; for a value of the 
mode REF-to-MODE, the reference is the static direct 
part, and the value referred to is the static indirect 
part. 

For a value of the mode ROWS-of-MODE, the descriptor is 
the static direct part, the elements constitute the 
dynamic part. 

For a value of the mode REF-to-ROWS-of-MODE, the refer¬ 
ence is the static direct part, the descriptor is the 
static indirect part and the elements constitute the 
dynamic part. 

In this implementation only the static direct part of 
identifiers and intermediate results are allocated on 
the stack. 

The storage allocated to the static parts of all identi¬ 
fiers in a range is the SID or static identifier stack 
of that range and the storage used for the static parts 
of intermediate results is the SWO or static working 
stack of that range. 

For each active range the stack contains a SID and a 
SWO. 

For each active routine the stack contains the return- 
information, followed by the entries for the active 
ranges. 



The outer range of a routine jhas a different type of 
header word, called procedure header; the SID of that 
range represents the actual parameters of the routine. 
The layout of the stack segment allocated for routine 
elaboration is completely determined at compile-time; 
all addressing in the stack is performed using fixed 
offsets relative to the procedure-header of the rele¬ 
vant routine-activation. 



7.2. PARAMETER MECHANISM. 



The call to a routine with parameters is carried out 
in the following steps ; 


1. 

2 . 

3. 

4. 


5. 



6 . 


7. 



8 . 


elaborate the PLAIN to be called yielding a 
procedure-word (see section 7.3., no. 5) ; 

place the procedure-word on top of the stack; 
place a zero on top of the stack; 
elaborate the parameters and place these on top 
of the stack; 

call the runtime routine G;CALL with register XI 
set to the address of the procedure-word in the 
stack; 

G;CALL sets the following registers : 

A1 ; address of procedure-word; 

B7 ; stack pointer of calling procedure (i.e. 
old Bl); 

B1 : link-address field of procedure word (see 7.3.5); 
B5 : address of the entry point of the routine 
being called; 

B6 ; copy of A1, i.e. address of the procedure 
word ; 

and transfers control to the routine. 

Scope checking is also performed in G;CALL; 
the routine called, when compiled by ALGOL 68, 
calls the runtime subroutine G;PROL with a 
parameter word (called routine-info) in register 
A1, XI. (for contents of routine-info, see section 
7.3., no.9); 

G;PROL replaces the procedure-word and the zero-word 
in the stack with the return-information and proce¬ 
dure header; 

the routine-text is elaborated, where parameters are 
accessed just as normal identifiers; 
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9. 


the value yielded by the routine is transmitted as 
follows : 


a. if it is a one word value: in register X6; 

b. if it is a two word value: in register X6 and 
X7; 

c. if it is a multiple word value: on the stack, 
where the first word overwrites the return- 
information (see section 7.3., no. 10); 

10. using the return-information (fetched earlier in 
case c of step 9), control is transferred to the 
calling routine; 

11. the calling routine resets stack-pointer register 
B1 to the procedure header of the calling routine 
by means of subtraction of a compiler determined 
constant offset. 
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7.3. REPRESENTATION OF INTERNAL OBJECTS. 

As may be seen in the sequel, the internal representa¬ 
tion of objects is such, that values of mode REF-to-MODE 
and ROW-of-MODE can be recognized and therefore no 
templates are needed for garbage collection. 

1. Non-long PLAIN modes. 

INT: 



sign ones complement integral value 

59 48 0 

The sign bits are equal to bit 47, the sign of the 
integral value. 


REAL; 

! 

s exponent mantissa 

59 48 0 

This is the standard floating point representation, 
where s is the sign of the mantissa (one bit) , and the 
exponent is biased by 2000(octal) and inverted for a 
negative mantissa. 


r 









CHAR: 


0 


char 


59 


12 


0 


Here char is the 12-bits character with the same 
representation as the internal representation in 
ILO used in the compiler (see table 1, column 3). 


BOOL; 


sign bits 


59 0 

When TRUE, sign bits consists of 60 one-bits. 

When FALSE, sign bits consists of 60 zero-bits. 

2. Long PLAIN modes. 

Values having a mode PLAIN with size long occupy 
two words in storage each of which has the format 
of the corresponding "non-long" PLAIN mode. 

Only REAL with size long is supported. 

3. Structures. 

Values of mode STRUCT(MODEl idenl,...,MODEn idenn) 
are represented by the concatenation of the internal 
representations of the fields idenl through idenn of 
mode MODEl through MODEn. 




4. Unions. 


Values of mode UNION(MODEl,M0DE2,MODEn) 
occupy the number of words required for the 
longest object of the set of modes (MODEl, 

MODE2,...,MODEn), plus one word for the so called 
union-word : 



The first word in an internal representation of 
a union is the union-word, where size is the 
number of words occupied by this representation. 
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BITS 


0 


48 BOOLs of one bit each 


59 48 


0 


The BOOLs are numbered from left to right ; 
when TRUE : 1; 
when FALSE : 0. 


BYTES; 


0 

charl 

char2 

char 3 

char4 


59 48 36 24 12 0 


Here charl, char2, char3, and char4 are the 
"significant" bits of values of the mode CHAR; 
the characters are numbered from left to right. 





5. ROUTINES. 


a. A value of the mode PROCEDURE not requiring 
scope checking occupies one word in storage : 


0 


link address 


npar 


entry addr. 
of routine 


59 54 


36 18 


0 




This word is called procedure-word (or proc-word). 
Depending on the type of routine represented, the 
link address-field is : 

Routine text : the link address is the stack- 

pointer of the routine contain¬ 
ing the range that is the scope 
of this routine; it is also 
called static link; 

Label ; the link address is the stack- 

pointer of the routine contain¬ 
ing the label; 

: the link address is the entry 
address of the routine written 
in the other language; the rou¬ 
tine is indirectly called via 
the interface routine. 

npar is zero, except in the last case, where it 
is the number of parameters. 


Other language 
routine 
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b. Values of the mode PROCEDURE that require 

scope checking are represented by the following 
word: 


4000 


entry address 


(octal) 

0 

of routine 

scope-word 


59 48 36 18 0 


Scope-word is the address of a scope control 
word on the heap, generated at range-entry 
of the range having the scope of the routine 
(see also 12, range-header). 


References. 

Values of the mode REF-to-MODE occupy one word in 
storage ; 


4000 

(octal) 


size-1 


address of 
object 


59 


48 


36 


18 


Here, size is the number of words allocated to the 
static indirect part, while : 

p=l : when the object contains references or 

multiples, i.e. must be traced in garbage 
collection; 






p=0 : otherwise. 

7. Multiples. 

Values of the mode ROWS-of-MODE are represented by 
a descriptor, consisting of a two-word header and 
one two-word triple for each dimension, and by the 
elements. 

The header has the following layout : 



The items size and p are the same as specified 
under references, see 6. above. Further : 


dim 

f 

s 

base address 

cdim 


the number of dimensions; 

1 for a flexible multiple, and 
0 for a fixed multiple; 
reserved; 

the address of the first element 
of the multiple; 

a number 0 ^ cdim dim, indicat¬ 
ing the "compactness” of the multiple, 
viz. one less than the number of 
nested loops needed to access all 
elements of the multiple. 
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The layout of a triple is as follows. 
For a non-empty multiple : 



width = upper bound - lower bound + 1; 
stride = the distance in memory locations of 

two elements, the subscripts of which 
differ by one in the dimension selected; 
indef = an indefinite exponent : 

1777(octal) for positive upper bound, 
6000(octal) for negative upper bound. 
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8. MODULE DESCRIPTOR 


Each relocatable module generated contains a 
four-word area including data and parameters 
used mainly for object-time diagnostics. 

The layout of this area is : 


name of program 

line table 

address 

relative address of code 

in the module 

start of 

module 

0 

address of 

range table 

0 

E;SYMDP 


59 18 0 


The meaning of the various fields is : 

- ncime of module : 

a name consisting of seven Display Code 
characters; 

- line table address : 

the line table serves to determine the line 
number of the source text from a relative 
address in the code; 

- relative address of code in .the program : 
is used to convert an absolute address into 
a relative address in the code; 

- start of program ; 
physical start of module; 











- address of range table : 

the range table is used for symbolic dump only. 
It allows to determine the nesting of ranges 
and the identifiers defined within these ranges. 
This field is set to zero when the D-option 
(see section 4.3) is not selected; 

- E;SyMDP : 

is the address of the runtime routine for a 
symbolic dump; this field is zero when the 
D-option (see section 4.3) is not selected. 

Thus, the symbolic-dump routine is not loaded 
when no module in the load is compiled with 
the D-option selected. 

9. ROUTINE-INFO. 


The routine-info (or procedure-info) is a 
two-word entry associated with a routine text: 


59 54 36 18 0 



length of 

result 

length of 

parameters 

size of 

stack-segment 

source line no. 

of routine 

index 

address of 

prog.-header 


length of result 
length of 
parameters 
size of the 
stack-segment 
source line no. 
of routine 


the length of the result; 
the length of the para¬ 
meters ; 

the maximum length of the 

SWO plus the SID; 

the line nuinber in the source 

text where the routine is 

defined; 




index 


= the index in the range-table 
for the range of the parameters 
of the routine; 
address of = the address of the program header 

program header 

10. RETURN-INFORMATION. 

This is a word in the stack used to return 
from a routine. The subroutine G;PROL stores 
this word in the stack. 


JP 

0 

return 

address 


allocated 

stack 

59 54 

48 


30 

1 18 

0 



The left half (30 bits) is the jump-instruction 
generated in G;CALL by the hardware for the 
return-jump instruction. 

The allocated stack field is the maximum 
allocated stack for its routine and all the 
dynamically surrounding routines. 

11. PROCEDURE-HEADER. 

Each active routine has a procedure-header 
generated in G;PROL : 




address of 




routine-info 

0 

static link 


59 54 36 18 0 
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The routine-info is used as parameter to a 
runtime routine for exit from a routine yield¬ 
ing a result having a size long. It is also 
used for trace back and symbolic dump. 

The static link field is used to access identi¬ 
fiers, operators and modes from surrounding 
routines. 

For routines with global scope the static link 
field is set to zero, because some register is 
always pointing to the global stack-segment. 

12. RANGE-HEADER. 

For each active range being the scope of some 
routine a one word entry is placed in the stack. 


4000 

(octal) 


0 


scope-word 


59 48 


18 


0 


The item scope-word is the address of a scope 
control word on the heap. 

For each range-entry a unique word is provided 
in the format. 



scope 


static 


59 


36 


18 


0 


scope = the address of the range-header in 
the stack; 

static = the address of the procedure-header of 
the routine containing the range. 
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8. INTERFACE WITH OTHER PROGRAMMING LANGUAGES. 


Routines written in other languages may be called 
from ALGOL 68 in either of the following ways : 

1. By defining an operator written in IGF (see 
section 1) which calls the routine directly 
(RJ-instruction). 

Parameters must be passed in the X-registers 
and ICF-instructions to load them must be 
explicitly stated in the operator definition. 

This method is normally reasonable only when 
the routine is written in COMPASS. 

2. By defining an identifier or operator with an 
xref-pragmat. 

The routine is entered directly from G;CALL 
(see section 7.2.) or via an interface-routine. 

In the first case control is passed to the 
entry-point by a JP-instruction. The parameters 
can be found on the stack. For the oontents of 
registers, see section 7.2.6. no. 6. 

If an interface-routine is used, both the entry- 
point of the interface-routine and the entry-point 
of the actual routine must be mentioned in the xref- 
pragmat. The interface-routine can find the address 
of the actual routine in B1 or in the procedure-word. 
The number of parameters can also be found in the 
procedure-word (see section 7.3. no.5.). 

If the registers Bl, B2, B3, B4 are used by the 
called routine, they must be saved either by the 
actual routine or by the interface-routine. 

In the runtime library one interface-routine is 
provided for calling subroutines or functions 
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written in FORTRAN(FTN). This routine is called 
A68FTN. It saves the B-registets. 

The correspondence between the ALGOL 68 parameters 
and the FORTRAN parameters is : 


ALGOL 68 FORTRAN 


REF 

INT 

INTEGER 

REF 

REAL 

REAL 

REF 

LONG REAL 

DOUBLE PRECISION 

REF 

COMPLEX 

COMPLEX 

REF 

LONG COMPLEX 

array with 2 elements 



DOUBLE PRECISION 

REF 

CHAR, REF BITS, 

INTEGER 

REF 

BYTES 



Other parameters are not allowed. If the FORTRAN 
routine is a FUNCTION, the result mode in ALGOL 68 
and the function type in FORTRAN have the same 
relation as the parameters, except for the REF. 

It is obvious that LONG COMPLEX is not possible 
as a result mode. 

If the FORTRAN routine is a SUBROUTINE, the ALGOL 68 
result mode is VOID. 

A sample job is given in section 9. 
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